100 POKE 53280,15:POKE 53281,15:PRINT"[147]          DIRECTORY EXTENSION"
110 PRINT"          [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
120 FOR I=830 TO 902:READ D:POKE I,D:NEXT
130 DN$="":P$="[175][157][157][170] [146][180][157][157][183]":XX=1
140 MT$="                   [146]                                        [144]"
150 DM=144:DIM F$(DM),S$(DM),T$(DM),S2$(DM)
160 FOR I=0 TO DM:F$(I)=CHR$(32)+"                  ":NEXT
170 PRINT"[145]           READING DIRECTORY  ":OPEN1,8,0,"$":SYS 830:CLOSE 1
180 GOSUB 950
190 POKE 198,0:PRINT"[147]"SPC(9)P$"[145][157]1[146]"SPC(3)"VIEW DIRECTORY FILE"
200 PRINT""SPC(9)P$"[145][157]2[146]"SPC(3)"SEND DISK COMMANDS"
210 PRINT""SPC(9)P$"[145][157]3[146]"SPC(3)"SAVE"
220 PRINT""SPC(9)P$"[145][157]4[146]"SPC(3)"VIEW DIFFERENT DISK"
230 PRINT""SPC(9)P$"[145][157]5[146]"SPC(3)"QUIT"
240 PRINT""SPC(28)P$"[145][157] [146]":PRINT"[145]"SPC(9)"ENTER YOUR CHOICE [170][191][157]";
250 POKE 204,0:GET CG$:IF CG$<"1" OR CG$>"5" THEN 250
260 POKE 204,1:POKE 207,0:PRINT""CG$:CG=VAL(CG$)
270 ON CG GOTO 290,1090,520,1240,1340
280 REM *** VIEW FILES ***
290 C=PEEK(0)-1:A=1
300 IF A=> C THEN 330
310 IF A<0 AND C/6=INT(C/6) THEN A=C-5:GOTO 330
320 IF A<0 THEN DN=INT(C/6):A=DN*6+1
330 PRINT"[147][144][146]   DISK TITLE: "F$(0)" ":PRINT"":PQ=5
340 FOR I=A TO A+PQ
350 IF F$(I)=CHR$(32)+"                  " OR F$(I)="" THEN F$(I)="":PQ=PQ-1
360 NEXT
370 FOR I= A TO A+PQ
380 IF I>9 THEN W$=" [157]":GOTO 400
390 W$="  [157]"
400 PRINT"[157]"I;W$;LEFT$(F$(I),16)":"MT$:PRINT"[145][145]"SPC(20);
410 PRINT""S$(I)"[144]":NEXT
420 PRINT DN$" F1-MENU F3-ADD F5-FWD F7-BACK ^-DELETE":POKE 198,0:WAIT198,1
430 IF PEEK(197)=54 THEN 1280
440 IF PEEK(197)=4 THEN 190
450 IF PEEK(197)=5 THEN 610
460 IF PEEK(197)=6 AND A=C THEN A=1:GOTO 300
470 IF PEEK(197)=6 AND A+6>C THEN A=1:GOTO 300
480 IF PEEK(197)=6 AND A<C THEN A=A+6:GOTO 300
490 IF PEEK(197)=3 THEN A=A-6:GOTO 300
500 GOTO 430
510 REM *** SAVE DESCRIPTIONS ***
520 PRINT"[145][145]"SPC(28)" [157] ":PRINT"[145][145]"SPC(9)"  SAVING "CHR$(34)"DIR FILE";
530 PRINT CHR$(34)"...":FOR R=1 TO C:IF S$(R)="" THEN S$(R)=" "
540 NEXT R
550 CLOSE1:CLOSE 15:OPEN 1,8,15,"S0:DIR FILE":CLOSE 1:OPEN 15,8,15,"I"
560 OPEN 1,8,8,"0:DIR FILE,S,W":GOSUB 1050
570 PRINT#1,C
580 FOR I=1 TO C:PRINT#1,LEFT$(F$(I),16):PRINT#1,S$(I):NEXT:CLOSE 1
590 PRINT"[145]                               ":GOTO 190
600 REM *** ADD STATEMENTS ***
610 PRINTDN$""SPC(9)"F3-ADD"
620 PRINT DN$"   ENTER FILE[160]#";:POKE 198,0:INPUT FI$:FI=VAL(FI$)
630 IF FI$="0" THEN PRINTDN$"                  ":GOTO 420
640 IF FI<A OR FI>A+PQ THEN PRINT DN$ SPC(17)"                  ":GOTO 610
650 PRINT DN$"                          ":IF FI<7 THEN Z=FI:GOTO 680
660 Z=INT(FI/6)+1:DD=Z*6-FI:Z=6-DD
670 IF Z=0 THEN Z=6
680 PRINT"":FORI=1 TO Z:PRINT"":NEXT
690 F$(FI)=LEFT$(F$(FI),16)
700 I$=""
710 PRINT"[145]"SPC(19)">"SPC(LEN(I$));:B$="<":CC=LEN(B$):L=1
720 PRINT""MID$(B$,L,2);"[157]";:L=-L*(L<CC)+1
730 GET A$:IF A$="" OR A$=CHR$(34) OR A$=CHR$(44) OR A$=CHR$(58) THEN 730
740 IF A$=CHR$(59) THEN 730
750 IF A$=CHR$(13) AND LEN(I$)=18 THEN 910
760 IF LEN(I$)=18 AND A$<>CHR$(20) THEN I$=I$+A$:PRINT A$"[146]    <[157]";:GOTO 720
770 IF LEN(I$)=55 THEN PP=1
780 IF LEN(I$)=55 AND A$<>CHR$(20) AND A$<>CHR$(13) THEN 730
790 IF A$=CHR$(13) AND LEN(I$)=0 THEN 330
800 IF A$=CHR$(13) THEN 910
810 IF A$=CHR$(20) AND LEN(I$)=19 THEN 880
820 IF A$=CHR$(20) AND LEN(I$)>0 THEN 850
830 IF ASC(A$)<32 OR ASC(A$)>95 THEN 720
840 I$=I$+A$:PRINT A$;:GOTO 720
850 I$=LEFT$(I$,LEN(I$)-1)
860 IF LEN(I$)=54 THEN PRINT"[146] [157][157]";:GOTO 720
870 PRINT" [157][157]";:GOTO 720
880 I$=LEFT$(I$,LEN(I$)-1):PRINT" ":D=19
890 IF PP=1 THEN PRINT"[145][145][145]"SPC(38)"";:GOTO 720
900 PRINT"[145][145]"SPC(38)"";:GOTO 720
910 S$(FI)=I$
920 IF LEN(S$(FI))<19 THEN 330
930 S$(FI)=MID$(S$(FI),1,19)+"[146]    "+MID$(S$(FI),20,37)
940 S$(FI)=S$(FI)+"[145]":GOTO 330
950 OPEN 15,8,15,"I"
960 OPEN 1,8,8,"0:DIR FILE,S,R":GOSUB 1050:IF EN=62 THEN CLOSE 15:RETURN
970 PRINT"[145]"SPC(19)"DIR FILE      "
980 INPUT#1,C
990 FOR I=1TO C:INPUT#1,T$(I):INPUT#1,S$(I):S2$(I)=S$(I):NEXT
1000 CLOSE 1:CLOSE 15:NF=PEEK(0)-1
1010 FOR A=1TO NF:IF LEFT$(F$(A),16)=T$(A) THEN S$(A)=S2$(A):GOTO 1040
1020 FOR B=1 TO C:IF LEFT$(F$(A),16)=T$(B) THEN S$(A)=S2$(B):B=C+2
1030 NEXT B:IF B=C+1 THEN S$(A)=""
1040 NEXT A:RETURN
1050 INPUT#15,EN,EM$:IF EN=0 THEN RETURN
1060 IF EN=62 AND XX=1 THEN XX=0:RETURN
1070 PRINT"[147]DISK ERROR:";EN;EM$:PRINT""SPC(14)" ":END
1080 REM *** SEND DISK COMMANDS ***
1090 PRINT"[147] DISK COMMANDS":PRINT" COMMANDS":PRINT"[160][163][163][163][163][163][163][163][163]"
1100 PRINT" S0:FILENAME"SPC(11)"SCRATCH A FILE
1110 [153]" R0:NEWNAME=OLDNAME    RENAME A FILE
1120 PRINT" V0"SPC(20)"VALIDATE A DISK":PRINT" I0"SPC(20)"INITIALIZE"
1130 PRINT" ENTER COMMAND   (RETURN FOR MENU)":Z$="":PRINT" >";
1140 GET U$:IF U$="" THEN 1210
1150 IF LEN(Z$)=37 AND U$<>CHR$(13) AND U$<>CHR$(20) THEN 1140
1160 U=ASC(U$):IF U=13 THEN 1220
1170 IF U<>20 THEN 1200
1180 IF LEN(Z$)<>0 THEN Z$=MID$(Z$,1,LEN(Z$)-1):PRINT U$;
1190 GOTO 1140
1200 IF U<32 OR U>90 THEN 1140
1210 PRINT"<[157]";U$;:Z$=Z$+U$:GOTO 1140
1220 IF Z$="" THEN 190
1230 CLOSE1:OPEN 1,8,15,Z$:CLOSE 1:CLOSE 15:OPEN 15,8,15,"I":GOSUB 1050:GOTO190
1240 PRINT"[147]       INSERT NEW DISK INTO DRIVE"
1250 PRINT"       PRESS ANY KEY TO CONTINUE":POKE 198,0:WAIT 198,1:GET E$
1260 PRINT"[145]             PLEASE WAIT        ":CLR:GOTO 130
1270 REM *** DELETE DESCRIPTIONS ***
1280 PRINTDN$""SPC(31)"^-DELETE"
1290 PRINT DN$""SPC(10)"                             "
1300 POKE 198,0:FI$="":PRINT DN$"  DELETE #";:INPUT FI$:FI=VAL(FI$)
1310 IF FI$="0" THEN PRINT DN$"              ":GOTO 420
1320 IF FI<A OR FI>A+PQ THEN 1280
1330 S$(FI)=" ":GOTO 330
1340 POKE 198,0:SYS 198:END
1350 DATA 169,255,133,0,165,55,133,71,165,56,133
1360 DATA 72,162,1,32,198,255,166,0,232,134,0
1370 DATA 216,56,165,71,233,20,133,71,176,5,166
1380 DATA 72,202,134,72,32,207,255,164,144,208
1390 DATA 22,201,34,208,245,160,0,32,207,255,201
1400 DATA 34,240,249,145,71,200,192,19,208,242
1410 DATA 240,207,32,204,255,96,0,0,0